home *** CD-ROM | disk | FTP | other *** search
/ Sunday Savers: Sharing Fun! I Know My Savior Lives / Sunday Savers: Sharing Fun! I Know My Savior Lives.iso / pc / main.dxr / 00007_contents.ls < prev    next >
Encoding:
Text File  |  2009-10-06  |  1.1 KB  |  46 lines
  1. on mouseDown
  2.   global speed, contentsdone
  3.   sprite(6).visible = 0
  4.   if speed = "slow" then
  5.     sprite(35).locV = 168
  6.   else
  7.     repeat while sprite(35).locV < 168
  8.       sprite(35).locV = sprite(35).locV + 10
  9.       sprite(37).locV = sprite(37).locV + 10
  10.       updateStage()
  11.     end repeat
  12.   end if
  13.   sprite(36).visible = 1
  14.   if contentsdone = 1 then
  15.     nothing()
  16.   else
  17.     lineCounter = the number of castMembers of castLib "text"
  18.     temp = VOID
  19.     repeat with x = 1 to lineCounter
  20.       if x = lineCounter then
  21.         put x - 1 & ". " & member(x, "text").name after temp
  22.         next repeat
  23.       end if
  24.       put x - 1 & ". " & member(x, "text").name & RETURN after temp
  25.     end repeat
  26.     member("tempText").text = temp
  27.     contentsdone = 1
  28.   end if
  29. end
  30.  
  31. on mouseLeave
  32.   global speed
  33.   sprite(36).visible = 0
  34.   updateStage()
  35.   if speed = "slow" then
  36.     sprite(35).locV = -78
  37.   else
  38.     repeat while sprite(35).locV > -78
  39.       sprite(35).locV = sprite(35).locV - 10
  40.       sprite(37).locV = sprite(37).locV - 10
  41.       updateStage()
  42.     end repeat
  43.   end if
  44.   sprite(6).visible = 1
  45. end
  46.